Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/loansh_1/loan.frm

Text File | 1999-07-19 | 24KB | 787 lines

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form LoanSheet
   Appearance      =   0  'Flat
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "LoanSheet"
   ClientHeight    =   6975
   ClientLeft      =   1230
   ClientTop       =   1845
   ClientWidth     =   9915
   ClipControls    =   0   'False
   BeginProperty Font
      Name            =   "Verdana"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000008&
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   6975
   ScaleWidth      =   9915
   Begin VB.CheckBox Check1
      Caption         =   "Pay Extra Amount"
      Height          =   255
      Left            =   240
      TabIndex        =   24
      Top             =   1260
      Value           =   1  'Checked
      Width           =   1935
   End
   Begin VB.Frame Frame2
      Height          =   1875
      Left            =   120
      TabIndex        =   19
      Top             =   1260
      Width           =   2775
      Begin VB.TextBox txtExtraPay
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   1920
         TabIndex        =   23
         Text            =   "1500"
         Top             =   1440
         Width           =   675
      End
      Begin VB.OptionButton Option1
         Caption         =   "Pay fixed amount over P + I"
         Height          =   435
         Index           =   1
         Left            =   120
         TabIndex        =   21
         Top             =   840
         Value           =   -1  'True
         Width           =   2235
      End
      Begin VB.OptionButton Option1
         Caption         =   "Extra Payment each month"
         Height          =   435
         Index           =   0
         Left            =   120
         TabIndex        =   20
         Top             =   360
         Width           =   2055
      End
      Begin VB.Label Label1
         Caption         =   "Pay Fixed Amount:"
         Height          =   315
         Left            =   120
         TabIndex        =   22
         Top             =   1500
         Width           =   1695
      End
   End
   Begin VB.Frame Frame1
      Caption         =   "Info"
      Height          =   1215
      Left            =   3120
      TabIndex        =   18
      Top             =   5700
      Width           =   6735
      Begin VB.Label lblinfo
         Caption         =   "lblinfo"
         Height          =   855
         Left            =   120
         TabIndex        =   25
         Top             =   240
         Width           =   6375
      End
   End
   Begin MSFlexGridLib.MSFlexGrid grdPayments
      Height          =   5115
      Left            =   3060
      TabIndex        =   14
      Top             =   420
      Width           =   6855
      _ExtentX        =   12091
      _ExtentY        =   9022
      _Version        =   393216
      Rows            =   50
      Cols            =   6
      WordWrap        =   -1  'True
      AllowUserResizing=   1
      FormatString    =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.CommandButton cmdCalcAmort
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Show Amortization"
      Enabled         =   0   'False
      Height          =   375
      Left            =   240
      TabIndex        =   13
      Top             =   6480
      Width           =   2295
   End
   Begin VB.CommandButton cmdCalcPmts
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Show Payments"
      Default         =   -1  'True
      Height          =   375
      Left            =   240
      TabIndex        =   5
      Top             =   5985
      Width           =   2295
   End
   Begin VB.Frame frmLoanLen
      Caption         =   "Years in Loan"
      Height          =   1335
      Left            =   120
      TabIndex        =   10
      Top             =   3180
      Width           =   2775
      Begin VB.TextBox txtLen1
         Height          =   285
         Left            =   1440
         TabIndex        =   3
         Top             =   360
         Width           =   615
      End
      Begin VB.TextBox txtLen2
         Height          =   285
         Left            =   1440
         TabIndex        =   4
         Top             =   840
         Width           =   615
      End
      Begin VB.Label lblLen
         Caption         =   "Length 1:"
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   12
         Top             =   390
         Width           =   855
      End
      Begin VB.Label lblLen
         Caption         =   "Length 2:"
         Height          =   255
         Index           =   1
         Left            =   240
         TabIndex        =   11
         Top             =   840
         Width           =   855
      End
   End
   Begin VB.TextBox txtDwnPay
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   1200
      TabIndex        =   2
      Text            =   "10"
      Top             =   720
      Width           =   1395
   End
   Begin VB.Frame frmIntr
      Caption         =   "Interest Rates (%)"
      Height          =   1275
      Left            =   120
      TabIndex        =   6
      Top             =   4620
      Width           =   2775
      Begin VB.TextBox txtRate2
         Height          =   285
         Left            =   1380
         TabIndex        =   17
         Text            =   "8.0"
         Top             =   840
         Width           =   675
      End
      Begin VB.TextBox txtRate1
         Height          =   315
         Left            =   1380
         TabIndex        =   16
         Text            =   "6.5"
         Top             =   360
         Width           =   675
      End
      Begin VB.Label lblIntr
         Caption         =   "Rate 2:"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   1
         Left            =   240
         TabIndex        =   8
         Top             =   885
         Width           =   1095
      End
      Begin VB.Label lblIntr
         Caption         =   "Rate 1:"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   7
         Top             =   405
         Width           =   1095
      End
   End
   Begin VB.TextBox txtPurchTotl
      Alignment       =   1  'Right Justify
      Height          =